home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / Business / Address Ace™ / Address Ace™ / stack_-1.xml < prev    next >
Extensible Markup Language  |  1991-09-14  |  12KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2896</cardID>
  8.     <listID>4890</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStackglobal wordProcessorpush recent cardset the loc of msg to 89,301put bg fld "WP" into wordProcessorshow msgdoMenu "find..."end openStackon closeBackgroundsort fld "gobg"end closeBackgroundon openCardif the short name of this cd = "instruct" thendisable menu "Edit"elseenable menu "Edit"end ifpass openCardend openCardon closeCardset the scroll of bg fld "notes" to 0if visible of bg fld "export" is true then hide bg fld "export"if bg fld "mailing label" is empty thenif bg fld "name" is empty thenput bg fld "company" into line 1 of bg fld "mailing label"elseput bg fld "name" into line 1 of bg fld "mailing label"if bg fld "company" is not empty thenput return & bg fld "company" after last line of bg fld "mailing label"end ifend ifput return & bg fld "local address" after last line of bg fld "mailing label"put return & bg fld "city state zip" after last line of bg fld "mailing label"end ifpush cardpass closeCardend closeCardon niceSortglobal wordProcessorput "Sorting stack... " into msgsort by mySortKey()put "Compacting stack (insures the cards stay in order)... " into msgdoMenu "Compact Stack"put wordProcesser into bg fld "WP" of cd 1beepput "Sorting complete!" into msgend niceSortfunction mySortKeyget fld "section"if bg fld "company" is empty then return it & last word of bg fld "name"elseif first word of field "company" <> "The" then return it & first word of bg fld "company"elseif first word of field "company" = "The" then return it & second word of bg fld "company"end ifend ifend mySortKeyon dialNumber phoneNumber-- Requires handler: dial from the Phone Stack-- dial the phone using the Phone Dialer stackset cursor to watchif phoneNumber is empty then exit dialNumberpush card -- remember where we arelock screen-- the 'dial' handler is in the 'Phone Dialer' stackif there is a stack "Phone Dialer" then -- ‚àÜgo stack "Phone Dialer" -- ‚àÜdial phoneNumber  -- dial the numberelse answer "The number could not be dialed, because the Phone Dialer stack cannot be found." -- ‚àÜpop card -- return to where we wereunlock screenend dialNumberon acePrintinganswer "Print the notes on this card or print mailing labels?"¬¨with "cancel" or "notes" or "labels"if it is "cancel" then exit to hypercardif it is "notes" then print bg fld "name"&&bg fld "company"&&bg fld "phone" & return & bg fld "notes"of this cdif it is "labels" then answer "Print mailing labels for all the sections or just people listed in the section '" ¬¨& the short name of this bg &"'." with "cancel" or "all" or the short name of this bgif it is "cancel" then exit to hypercardif it is "all" thenopen report printing with template "Mailing Labels"lock screenpush cardgo cd 1 of this stackprint all cardsclose printingpop cardunlock screenpop cardend ifif it is the short name of this  bg thenopen report printing with template "Mailing Labels"lock screenpush cardgo cd 1 of this bgput "Accumulating cards from this section to print..." into msgrepeat for the number of cards of this bgprint this cardgo next cardend repeatclose printingunlock screenpop cardend ifend acePrintingon NewBkgndglobal userLevelset cursor to 4put the userLevel into useLevSavset the userLevel to 5set cantAbort of this stack to trueput bg fld "gobg" into DirectorydoMenu "New Card"lock screendoMenu "Cut Card"go homeask "What is the title of this new section?"if it is empty thenpop cardreset menuBaranswer "You must title your section!" & return & return & "If you'd like to try again, click the 'New Section' button."hide msgexit NewBkgndend ifdoMenu "Paste Card"set the name of this bg to itput it into bg fld "section"set the cantDelete of this bg to falsedoMenu "Cut Card"go last cd of stack "Address Ace‚Ñ¢"put empty into msgput "OK, we're getting there!" into msgdoMenu "Paste Card"set the cantDelete of this bg to trueput Directory into bg fld "gobg" of last cdput return & it after last line of bg fld "gobg"sort bg fld "gobg"put bg fld "gobg" into Directoryrepeat with x = 1 to the number of lines of Directorygo bg (line x of Directory)put Directory into bg fld "gobg"end repeatset the userLevel to useLevSavset cantAbort of this stack to falsego bg itbeepput "The section "& quote & it & quote &" has been added to this stack."unlock screenset cursor to 1end NewBkgndon moveItglobal wordProcessorif visible of bg fld "export" is true thenhide bg fld "export"hide msgexit moveItend ifif bg fld WP is empty and wordProcessor is empty thenanswer "This is the " & quote & "Open Application" & quote & " button." with "cancel" or "continue"if it is "continue" thenanswer "This stack hasn't been set up to export its information to your word processor yet." with "continue"ask "Please refer to the notes on setting up templates (in the scrolling field)." & return & return & "After you've done that, enter the name of your word " &¬¨"processing program in the space below. Please use the exact spelling." &return&return &"'Cancel' if you're not ready to do this yet." with "Microsoft Word"if it is empty then exit moveItput it into bg fld "WP"put it into "wordProcessor"exit moveItend ifif it is "cancel" then exit moveItend ifTRANSend moveIton TRANSglobal wordProcessoranswer "Transfer the information on this card to write" & return & return & "(to cancel type command - period " & quote & "‚åò‚Äì." & quote & ")" with "envelope" or "letter" or "invoice"if it is "cancel" then exit TRANSshow bg field "export"if field "export" is not empty thenselect text of field "export"doMenu "copy text"hide field "export"if it is "envelope" then open "envelope template" with wordProcessorif it is "letter" then open "letter template" with wordProcessorif it is "invoice" then open "invtemp" with wordProcessorexit TRANSend iffillerUpselect text of field "export"doMenu "copy text"hide field "export"if it is "envelope" then open "evvelope template" with wordProcessorif it is "letter" then open "letter template" with wordProcessorif it is "invoice" then open "invtemp" with wordProcessorend TRANSon reTransglobal wordProcessorif wordProcessor is empty thenask "What is the name of the [word processing] program you'd like to export this card's information to?" & return & return &¬¨"Be sure use the spelling of the program as it appears on the desktop." & return & return & "Microsft Word is the default setting." with Microsoft Wordelseask wordProcessor && "is program you're sending this card's information to." & return & return & "If that suits you click 'OK' or type in the name of the " ¬¨& "program you prefer and then click 'OK'." & return & return & "If you select 'cancel' no program is selected and this feature will be inactive." with wordProcessorend ifif it is "cancel" thenexit to Hypercardelseput it into wordProcessorput it into bg fld "WP"end ifend reTranson makeOveranswer "To update names and addresses on the mailing label and export field." & return & return & "Select 'Mail' or 'Export' or 'Both'." & ¬¨return & return & "Type '‚åò-.' to cancel." with "Mail" or "Export" or "Both"if it is "Mail" thenreMailend ifif it is "Export" thenshow bg fld "export"put empty into bg fld "export"fillerUphide bg fld "export"end ifif it is "Both" thenreMailshow bg fld "export"put empty into bg fld "export"fillerUphide bg fld "export"end ifend makeOveron reMailshow bg fld "mailing label"put empty into bg fld "mailing label"send closeCardhide bg fld "mailing label"set the hilight of bg button "mailing label" to falseend remailon fillerUpif field "company" is not empty thenput field "company" into line 1 of field "export"put field "local address" into line 2 of field "export"put field "city state zip" into line 3 of field "export"if field "name" is not empty thenput return & "Attn.:" & field "name" after last line of bg fld "export"end ifif line 1 of field "phone" is not empty then put return & line 1 of bg fld "phone" after last line of bg fld "export"if line 2 of field "phone" is not empty then put return & line 2 of bg fld "phone" after last line of bg fld "export"if line 3 of field "phone" is not empty then put return & line 3 of bg fld "phone" && "(fax)" after last line of bg fld "export"if line 4 of field "phone" is not empty then put return & line 4 of bg fld "phone" && "(home)"after last line of bg fld "export"end ifif field "company" is empty thenput bg fld "name" into line 1 of  bg fld "export"put field "local address" into line 2 of field "export"put field "city state zip" into line 3 of field "export"if line 1 of field "phone" is not empty then put return & line 1 of bg fld "phone" after last line of bg fld "export"if line 2 of field "phone" is not empty then put return & line 2 of bg fld "phone" after last line of bg fld "export"if line 3 of field "phone" is not empty then put return & line 3 of bg fld "phone" && "(fax)" after last line of bg fld "export"if line 4 of field "phone" is not empty then put return & line 4 of bg fld "phone" && "(home)"after last line of bg fld "export"end ifput return & field "tax#" after last line of field "export"put "Check this information for any corrections." into msgwait 50 tickshide msgend fillerUpon adVertpush this cdhide cd button 3 of cd "Instruct"hide cd button 6 of cd "Instruct"hide cd button 11 of cd "Instruct"hide cd button 13 of cd "Instruct"hide cd button 18 of cd "Instruct"hide menuBarhide msgshow pict of cd "Instruct"visual effect stretch from centergo cd "Instruct"answer "Address Ace‚Ñ¢ v.2.0"&return&"¬© 1991 by Ken Schles all rights reserved."&return&return&"AppreciationWare. Send $5.00 to:"&return&"Ken Schles"&return&"224"¬¨&" Avenue B #10"&return&"NYC, NY 10009"&return&"This small token will be much appreciated."&return&return&"I can be reached via E mail AOL KenS16 or by fax @ 212-677-5931."visual effect iris closepop cardhide pict of cd "Instruct"show cd button 3 of cd "Instruct"show cd button 6 of cd "Instruct"show cd button 11 of cd "Instruct"show cd button 13 of cd "Instruct"show cd button 18 of cd "Instruct"show menuBarshow msgend adVerton suspendStackglobal wordProcessorreset menuBarput wordProcessor into bg fld "WP" of cd 1put empty into wordProcessorhide msgset the loc of msg to 20,300end suspendStackon resumeStackreset menuBarglobal wordProcessorpush recent cardset the loc of msg to 89,301put bg fld "WP" of cd 1 into wordProcessorshow msgdoMenu "find..."end resumeStackon closeStackglobal wordProcessorreset menuBarput wordProcessor into bg fld "WP" of cd 1put empty into wordProcessorhide msgset the loc of msg to 20,300end closeStack</script>
  17.     <background id="2637" file="background_2637.xml" name="Instruction Card" />
  18.     <card id="2896" file="card_2896.xml" marked="false" name="Instruct" owner="2637" />
  19. </stack>
  20.